home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / basic / ctlbreak.zip / CTLBREAK.BAS
BASIC Source File  |  1986-06-14  |  1KB  |  30 lines
  1. 100 '**SUB**
  2. 110 '= SAVE CONTROL BREAK POINTER =
  3. 120 '
  4. 130 DEF SEG = 0             'SET SEGMENT POINTER TO 0
  5. 140 OFF.LOW% = PEEK(&H6C)   'SAVE CTRL-BRK OFFSET LOW ORDER BYTE
  6. 150 OFF.HGH% = PEEK(&H6D)   'SAVE CTRL-BRK OFFSET HIGH ORDER BYTE
  7. 160 SEG.LOW% = PEEK(&H6E)   'SAVE CTRL-BRK SEGMENT LOW ORDR BYTE
  8. 170 SEG.HGH% = PEEK(&H6F)   'SAVE CTRL-BRK SEGMENT HIGH ORDR BYTE
  9. 171 DEF SEG                 'RESTORE SEGMENT POINTER
  10. 172 RETURN
  11. 180 '**SUB**
  12. 181 '==== DISABLE CONTROL BREAK ====
  13. 182 '
  14. 190 POKE &H6C,&H53          'SET NEW CTRL-BRK OFFSET LOW ORDR BYTE
  15. 200 POKE &H6D,&HFF          'SET NEW CTRL-BRK OFFSET HIGH ORDR BYTE
  16. 210 POKE &H6E,&H0           'SET NEW CTRL-BRK SEGMENT LOW ORDR BYTE
  17. 220 POKE &H6F,&HF0          'SET NEW CTRL-BRK SEGMENT HIGH ORDR BYTE
  18. 230 DEF SEG                 'RESTORE SEGMENT POINTER
  19. 240 RETURN
  20. 245 '**SUB**
  21. 250 '==== RESTORE CONTROL BREAK ====
  22. 260 '
  23. 270 DEF SEG = 0             'SET SEGMENT POINTER TO 0
  24. 280 POKE &H6C,OFF.LOW%      'RESTORE CTRL-BRK OFFSET LOW ORDER BYTE
  25. 290 POKE &H6D,OFF.HGH%      'RESTORE CTRL-BRK OFFSET HIGH ORDER BYTE
  26. 300 POKE &H6E,SEG.LOW%      'RESTORE CTRL-BRK SEGMENT LOW ORDER BYTE
  27. 310 POKE &H6F,SEG.HGH%      'RESTORE CTRL-BRK SEGMENT HIGH ORDER BYTE
  28. 320 DEF SEG                 'RESTORE SEGMENT POINTER
  29. 330 RETURN
  30.